home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 023a / prop_man.zip / RAISE.SAB < prev    next >
Text File  |  1991-08-23  |  2KB  |  56 lines
  1. set messages off
  2. set error messages off
  3. label start
  4. clear all v
  5. cls
  6. display cp.dis
  7. Write "RAISE.SAB" AT 2,36
  8. write "Rent Increase" at 5,33
  9. fillin code using "Enter Entire ADD.CODE (or <ESC>)  " at 10,10
  10.   if code = "" then
  11.      cls ; return
  12.   endif
  13. write "Current Rent = " at 11,10
  14. set v rate to rent in cur.mast where add.code = .code
  15. write .rate at 11,26
  16. write "since" at 11,36
  17. set v since to last.inc in cur.mast where add.code = .code
  18. write .since at 11,42
  19. set v cont to ""
  20. fillin cont using "Continue?  " at 11,55
  21.   if cont = "n" or cont = "no" then
  22.     goto start
  23.   endif
  24.   set v nurate currency
  25. fillin nurate using "Enter New Rent Amount  " at 14,10
  26. fillin nudate using "Enter Effective Date   " at 15,10
  27.   set v nudate date
  28. set null " "
  29. output printer
  30.   print uprent where add.code = .code
  31. output screen
  32. set v parta to "Change Rent To"
  33. set v nurate text
  34. change rec.call to (.nudate - 10) in cur.mast where add.code = .code
  35. change reason to (.parta & .nurate) in cur.mast where add.code = .code
  36. change exp.date to .nudate in cur.mast where add.code = .code
  37. change last.inc to .nudate in cur.mast where add.code = .code
  38. set v sone currency
  39. set v stwo currency
  40. label step1
  41.   set v sone to pro.rent in cur.mast where add.code = .code
  42.     if sone > .nurate then
  43.       goto step2
  44.     endif
  45.   change prorent to .nurate in cur.mast where add.code = .code
  46. label step2
  47.   set v stwo to rent in property where add.code = .code
  48.     if stwo > .nurate then
  49.       goto env
  50.     endif
  51.   change prorent to .nurate in property where add.code = .code
  52.   change rent to .nurate in property where add.code = .code
  53. label env
  54. goto start
  55.  
  56.